home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / PKUNZIP.WB$ < prev    next >
Text File  |  1992-02-15  |  914b  |  36 lines
  1. ; PKUNZIP Window Setup "Front End"       Extract
  2. Debug(@OFF)
  3. FileSpec="*.ZIP";
  4. OrigDir=DirGet()
  5. Extract="*.*"
  6. DestDir=""
  7. OPER=1
  8. XDir=1
  9. Password=""
  10.  
  11. :Retry
  12.  
  13. DialogBox("PKUNZIP SETUP","%OrigDir%pkunzip.wdg")
  14.  
  15. FileSpec=StrUpper(FileSpec)
  16. if DestDir == '' then  goto Next
  17. DestDir=StrUpper(DestDir)
  18. if (strlen(DestDir)>3 && StrSub(DestDir,strlen(DestDir),1)!='\') then DestDir = strcat(DestDir,"\")
  19.  
  20. :Next
  21. OptLine=''
  22. if OPER   == 1 then  OptLine = ""
  23. if OPER   == 2 then  OptLine = strcat(OptLine,"-v ")
  24. if OPER   == 3 then  OptLine = strcat(OptLine,"-t ")
  25. if XDir == 1 then  OptLine = strcat(OptLine,"-d ")
  26. if Password!="" then OptLine=strcat(Optline,"-s%Password% ")
  27.  
  28. OptLine = strcat(OptLine,' ',FileSpec,' ',DestDir,' ',Extract)
  29.  
  30. if FileExtension(FileSpec)=="ZIP" then goto Process
  31. Display(6,"Error","Extension of file is not ZIP")
  32. goto Retry
  33.  
  34. :Process
  35. Run("PKUNZIP.EXE",OptLine)
  36.